Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

“МАСИВИ ДАНИХ”

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
КН
Кафедра:
Кафедра інформаційних систем та мереж

Інформація про роботу

Рік:
2014
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Група:
СА
Варіант:
5

Частина тексту файла

Міністерство освіти і науки України Національний університет “Львівська політехніка” Кафедра інформаційних систем та мереж ЗВІТ про виконання лабораторної роботи № 6 “МАСИВИ ДАНИХ” з дисципліни “Основи програмування” Мета роботи: Набуття практичних навиків у роботі з масивами, особливостями їх оголошення, організації, ініціалізації та алгоритмами обробки масивів даних. Умова завдання: 1.Скласти програму, у якій описати одновимірний масив цілих чисел i ввести в нього довільні значення з клавіатури. Обробити цей масив згідно з індивідуальним завданням: 5). Найти максимальний і мінімальний елементи масиву та поміняти їх місцями. 2. Випадковим чином (використати функцію Random або Random(х)) утворити масив або матрицю відповідного розміру. Виконати два завдання з номерами згідно схеми: 9. )Знайти суму елементів першої половини масиву Х(10). 10.) Знайти найменший елемент матриці Х(4,4) і записати нулі в цю стрічку і стовпець, де він знаходиться. 1. Program Matrix_Input_output; uses crt; const k=6; var l,i,max,min,imax,imin :integer; B: array[1..k] of integer; begin l:=0; {Виводимо матрицю на екран} Write('Введіть елементи: '); for i:=1 to k do read (B[i]); Writeln; max:=B[1]; imax:=1; min:=B[1]; imin:=1; for i:=1 to k do if B[i]>max then begin max:=B[i]; imax:=i; end else if B[i]<min then begin min:=B[i]; imin:=i; end; l:=B[imax]; B[imax]:=B[imin]; B[imin]:=l; Writeln('Мaксимальний елемнт = ',max,''); Writeln('Мінімальний елемент масиву = ',min,''); Writeln('pozition Мaксимальний елемнт = ',imax,''); Writeln('pozition Мінімальний елемент масиву = ',imin,''); for i:=1 to k do writeln( B[i],''); end. 2. Program LZ; uses crt; const N=10; var i,j,b :integer; s:real; x: array[1..n] of integer; begin clrscr; randomize;//ініціалізація генер вип чисел b:= round (n/2); //округлення до найблищого цілого числа з real в integer for i:=1 to n do X[i]:=random(11);// заповнення масиву випадковими числами for i:=1 to b do S:=S+X[i]; WriteLn('Сума всіх чисел першої половини масиву = ', S); writeln; for i:=1 to n do write(x[i],' '); // вивід на екран елементів масиву ReadKey; end. 3. Program minMassiv; const n=5; m=5; var A : array[1..n, 1..m] of integer; i, j, MinI, MinJ : integer; begin {Заповним МАтрицю випадковими числами} Randomize; for i:=1 to n do for j:=1 to m do A[i,j] := Random(100); {Виводимо матрицю на екран} WriteLn('Начальная матрица: '); for i:=1 to n do begin for j:=1 to m do Write(A[i,j]:3,' '); WriteLn end; {знаходимо індекси наймешого елемента стовпця і рядка} MinI:=1; MinJ:=1; {спочатку приймаємо за мінімальний елемент значенняA[1,1]} for i:=1 to n do for j:=1 to m do if A[i,j] < A[MinI,MinJ] then begin MinI := i; MinJ := j; end; WriteLn('Найменший елемент ', A[MinI,MinJ], ' знайден в ',MinI,' рядку ',MinJ, 'стовпчику.' ); {обнулим MinI рядок} for j:=1 to m do A[MinI, j] := 0; {обнулим MinJ стовпець} for i:=1 to n do A[i,MinJ] := 0; {вивидемо матрицю на екран} WriteLn('отримана матриця: '); for i:=1 to n do begin for j:=1 to m do Write(A[i,j]:3,' '); WriteLn end; Readln; end. 1. / 2. / Висновки: У ході даної лабораторної роботи я набула практичних навиків у роботі з масивами, особливостями їх оголошення, організації, ініціалізації та алгоритмами обробки масивів даних. /
Антиботан аватар за замовчуванням

15.03.2016 17:03

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини